home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / PG / CL_STYLE.ZIP / DOSLIB.CLA < prev    next >
Encoding:
Text File  |  1994-03-13  |  3.8 KB  |  89 lines
  1.                  PROGRAM
  2.  
  3.                  INCLUDE('KeyCodes.EQU')
  4.                  INCLUDE('Clarion.EQU')
  5.                  INCLUDE('Errors.EQU')
  6.  
  7.                  MAP
  8.                    Module('DOSLIB01.CLA'); Change_Directory.
  9.                    Module('DOSLIB02.CLA'); Get_FileName(<String>,<String>),String.
  10.                    Module('DOSLIB03.CLA'); ViewStyles(<string>).
  11.                    Module('DOSLIB04.CLA'); Printer_Setup(*Group,<String>,<Byte>).
  12.                    Module('DOSLIB05.CLA'); GetFileDetails(<String>,<String>,<String>),String.
  13.                    Module('DOSLIB06.CLA'); ViewPrinters(<String>).
  14.                    Module('DOSLIB08.CLA'); Calendar(<Long>),Long.
  15.                    Module('DOSLIB09.CLA'); Select_Printer(<String>,<String>),String.
  16.                    Module('DL:GetDir')
  17.                      DL:FindFirst(*CSTRING,*GROUP,SHORT),SHORT,RAW,NAME('_findfirst')
  18.                      DL:FindNext(*GROUP),SHORT,RAW,NAME('_findnext')
  19.                      DL:IsAValidDrive(USHORT),USHORT,NAME('Cla$isdrive')
  20.                    End
  21.                  END
  22. !
  23. !                ------------------------------------------------------------
  24. !                Data Declarion for Testing
  25. !                ------------------------------------------------------------
  26. !
  27.                  Omit('**END_DATA_DECLARATION**',Test_Library=0)
  28. Backdrop         SCREEN,CUA,COLOR(1)
  29.                    !dimensions=25,80,25,80
  30.                    !style=D:\CLARION\DEVELOP\DOSLIB\CLARION.STY
  31.                    ROW(1,1)    PAINT(1,26),COLOR(2)
  32.                    ROW(1,55)   PAINT(1,26),COLOR(2)
  33.                    ROW(1,27)   STRING('DOS Library Testing Facility'),COLOR(2)
  34.                                REPEAT(24)
  35.                    ROW(2,1)      STRING('▒{80}')
  36.                                .
  37.                  .
  38. PullDown_Menu    PULLDOWN,COLOR(44,45,49,46,52),HALF(120),LOCAL,SHADOW,AT(2)
  39.           !style=D:\CLARION\DEVELOP\DOSLIB\Clarion.Sty
  40.           MENU('Dos Library'),COLOR(47,48,49,50,51)
  41.             ITEM('Open'),USE(?Open_a_File)
  42.             ITEM('Change &Directory'),USE(?Change_Directory)
  43.             ITEM('-')
  44.             ITEM('Edit Color Scheme'),USE(?Edit_Color_Scheme)
  45.             ITEM('-')
  46.             ITEM('Select a Printer'),USE(?Select_a_Printer)
  47.             ITEM('P&rinter Defaults'),USE(?Printer_Defaults)
  48.             ITEM('Edit &Printers'),USE(?Edit_Printers)
  49.             ITEM('-')
  50.             ITEM('C&alendar'),USE(?Calendar)
  51.             ITEM('-')
  52.             ITEM('E&xit'),USE(?Exit),KEY(CtrlX)
  53.           .
  54.         .
  55. PrinterConts       Group
  56. Destination          String('SCREEN')
  57. Filespec             String(64)
  58. PrinterName          String(30)
  59. Control_BF           String(30)
  60. Control_AFT          String(30)
  61. Lines_Page           Short(60)
  62.                    .
  63.  
  64.                    ! **END_DATA_DECLARATION**
  65.  
  66.                  Code
  67.                  Omit('**END_CODE_SECTION**',Test_Library=0)
  68.                  LoadSymbols()
  69.                  LoadBorder()
  70.                  SetMouse(1,1)
  71.                  GetStyles('C:\Clarion3\Clarion.Sty')
  72.  
  73.                  Open(BackDrop)
  74.                  Open(PullDown_Menu)
  75.                  Loop
  76.                    Accept
  77.                    Case Field()
  78.                      Of ?Open_a_File        ; Dummy# = Get_FileName('*.CLA','')
  79.                      Of ?Change_Directory   ; Change_Directory
  80.                      Of ?Edit_Color_Scheme  ; ViewStyles()
  81.                      Of ?Printer_Defaults   ; Printer_Setup(PrinterConts)
  82.                      Of ?Select_a_Printer   ; x" = Select_Printer('')
  83.                      Of ?Edit_Printers      ; ViewPrinters()
  84.                      Of ?Calendar           ; x# = Calendar(Today())
  85.                      Of ?Exit               ; Return
  86.                  . .
  87.                  ! **END_CODE_SECTION**
  88.                  Return
  89.